unit UDAMOGrau2;

interface

uses
  SysUtils, Classes;

type
  TDAMOGrau2 = class(TDataModule)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ProcessarEmails;
  end;

implementation

uses USVCPushService;

{$R *.dfm}

{ TDAMOGrau2 }

procedure TDAMOGrau2.ProcessarEmails;
begin
  with TStringList.Create do
    try
      Text := 'TDAMOGrau2.ProcessarEmails: ' + FormatDateTime('hh:nn:ss',now);
      SaveToFile('D:\TDAMOGrau2.ProcessarEmails.txt');
    finally
      Free;
      Sleep(1000);
    end;
end;

end.
